﻿

Public Class BlanqueoPass
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim imgFondo As Image = Page.Master.FindControl("Imag_Fondo")

        If Not Page.IsPostBack Then
            FG.culturaPaginas()

            'acomodo la image de fondo
            imgFondo.Height = 380

            lblBlanqueoPass.Visible = False


        End If


    End Sub

    Protected Sub btnBlanquear_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBlanquear.Click
        Dim rs As ADODB.Recordset
        Dim param(1) As ADODB.Parameter
        Dim X As Boolean
        Dim Clave As String
        Dim usuario As String
        Dim asunto As String, destinatario As String, mensaje As String
        'seteo'''''
        Clave = ""
        usuario = ""
        '---------

        lblBlanqueoPass.Visible = False


        If txtMail.Text = "" Then
            lblBlanqueoPass.Visible = True
            lblBlanqueoPass.Text = "Debe especificar una direccion de mail"
            Exit Sub
        End If


        If InStr(txtMail.Text, "@", CompareMethod.Text) = 0 Or InStr(txtMail.Text, ".com", CompareMethod.Text) = 0 Then
            lblBlanqueoPass.Visible = True
            lblBlanqueoPass.Text = "Debe especificar una direccion Valida"
            Exit Sub
        End If



        param(0) = New ADODB.Parameter
        param(0).Name = "@DNI"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = txtDNI.Text
        param(0).Size = 10


        param(1) = New ADODB.Parameter
        param(1).Name = "@mail"
        param(1).Type = ADODB.DataTypeEnum.adVarChar
        param(1).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(1).Value = txtMail.Text
        param(1).Size = 50



        rs = Datos.TraerTodos("RealizaBlanqueoDeclave", param, "BlanqueoDePass-btnBlanquear_Click")



        If rs.RecordCount > 0 Then
            rs.MoveFirst()



            usuario = rs.Fields(0).Value.ToString
            Clave = rs.Fields(1).Value.ToString

        End If


        destinatario = txtMail.Text
        asunto = "Blanqueo de contraseña"

        'Si está correcto...
        If Clave <> "" Then


            'Gas Aca pone tu funcion , te dejo el usuario y la clave en su variables 
            lblBlanqueoPass.Visible = True
            Me.lblBlanqueoPass.Text = "La contraseña ha sido reseteada correctamente"

            mensaje = "<html><body><b>La contraseña ha sido reseteada</b> <br/> " + _
                                      "Usuario: " + usuario + "<br/>contraseña: " + Clave + _
                                      "<br/>Para empezar a usar el sistema SCHC entre a www.schc-ar.com.ar<br/>" + _
                                      "<pre/><b>El equipo de SCHC.<pre/></b></body></html>"

        Else
            lblBlanqueoPass.Visible = True
            Me.lblBlanqueoPass.Text = "No se pudo resetear la contraseña"
            mensaje = lblBlanqueoPass.Text
        End If

        mensaje = FG.EnviarMail(destinatario, asunto, mensaje)

        If mensaje = "No hay mail registrado para notitificar el proceso" Then
            MuestraCartel(mensaje, lblBlanqueoPass)
        End If


    End Sub

    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Dim param(0) As ADODB.Parameter
        Dim Rs As ADODB.Recordset


        'inicializo los controles 
        txtDNIpaciente.Text = ""
        txtNombrePaciente.Text = ""
        txtMail.Text = ""
        lblBlanqueoPass.Visible = False
        '-----------------------------


        param(0) = New ADODB.Parameter
        param(0).Name = "@DNI"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = txtDNI.Text
        param(0).Size = 10

        Rs = Datos.TraerTodos("traerDNI_NomyApPersona", param, "Vacunaciones.aspx")

        If Rs.RecordCount > 0 Then
            txtDNIpaciente.Text = Rs.Fields(0).Value.ToString
            txtNombrePaciente.Text = Rs.Fields(1).Value.ToString
            txtApellidoPaciente.Text = Rs.Fields(2).Value.ToString
            txtMail.Text = Rs.Fields(3).Value.ToString

        End If
    End Sub
End Class